
my $flag = "";while($flag !~ "q")
{
my $input = <STDIN>;my @string = split(/\s+/,$input);
print "Result : \n","$string[0]\n";
print "$string[1]\n";
$flag =$input;
}